home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / program / eflibpt4.zip / DEMO / WINDOWS / EVENTHND.PAS < prev    next >
Pascal/Delphi Source File  |  1996-08-07  |  935b  |  32 lines
  1. { Borland Pascal Extended Function Library - EFLIB (C) Johan Larsson, 1996
  2.   Demonstration; simple event handler (window)
  3.  
  4.   EFLIB IS PROTECTED BY THE COPYRIGHT LAW AND MAY NOT BE COPIED, SOLD OR
  5.   MANIPULATED. FOR MORE INFORMATION, SEE PROGRAM MANUAL! THIS DEMONSTRAT-
  6.   ION PROGRAM MAY FREELY BE USED AND DISTRIBUTED.                          }
  7.  
  8.  
  9. uses EFLIBDEF, EFLIBINI, EFLIBWIN, EFLIBSCR, EFLIBKBD;
  10.  
  11. var MyWindow : EventHandlerObjectType;
  12.  
  13.  
  14. begin
  15.      Screen.Draw;
  16.  
  17.      with MyWindow do begin
  18.           InitializeWindow (20, 8, 60, 16, 'MyWindow',
  19.                             ThinBorder, TRUE, FALSE);
  20.  
  21.           MyWindow.EnableEmbedding;
  22.           MyWindow.SetColor (Yellow, Blue);
  23.  
  24.           repeat
  25.                 MyWindow.Loop;
  26.                 MyWindow.Write ('Some text to show ');
  27.                 IgnoreExternalEvents;
  28.           until MyWindow.IsFinished;
  29.  
  30.           Intercept;
  31.      end;
  32. end.